home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / m2posx10.zoo / m2posix.10 / src / oscalls.dpp < prev    next >
Encoding:
Modula Definition  |  1993-11-11  |  6.6 KB  |  206 lines
  1. DEFINITION MODULE OSCALLS;
  2. __DEF_SWITCHES__
  3. #ifdef HM2
  4. #ifdef __LONG_WHOLE__
  5. (*$!i+: Modul muss mit $i- uebersetzt werden! *)
  6. (*$!w+: Modul muss mit $w- uebersetzt werden! *)
  7. #else
  8. (*$!i-: Modul muss mit $i+ uebersetzt werden! *)
  9. (*$!w-: Modul muss mit $w+ uebersetzt werden! *)
  10. #endif
  11. #endif
  12. (*****************************************************************************)
  13. (* Dies soll kein allgemeingueltiges Modul fuer "GEMDOS"- und "MiNT"-Aufrufe *)
  14. (* sein, sondern lediglich die in M2POSIX verwendeten Aufrufe bereitstellen, *)
  15. (* damit keine Makros benutzt werden muessen.                                *)
  16. (* Wenn die Betriebssystemfunktion eine Fehlermeldung liefern kann, hat die  *)
  17. (* Prozedur einen BOOLEAN-Returnwert: TRUE bedeutet: OK, FALSE bedeutet:     *)
  18. (* es ist ein Fehler aufgetreten. Der Fehlercode wird dann in der entspre-   *)
  19. (* chenden Resultatsvariable zurueckgeliefert, die hierfuer moeglicherweise  *)
  20. (* noch in einen INTEGER-Wert konvertiert werden muss (falls z.B. das Resul- *)
  21. (* tat ein ADDRESS-Parameter ist).                                           *)
  22. (* --------------------------------------------------------------------------*)
  23. (* 30-Okt-93, Holger Kleinschmidt                                            *)
  24. (*****************************************************************************)
  25.  
  26. FROM SYSTEM IMPORT
  27. (* TYPE *) ADDRESS;
  28.  
  29. FROM PORTAB IMPORT
  30. (* TYPE *) UNSIGNEDWORD, SIGNEDWORD, UNSIGNEDLONG, SIGNEDLONG, ANYLONG,
  31.            ANYWORD, WORDSET;
  32.  
  33. (*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
  34.  
  35. PROCEDURE Supexec(proc:PROC);
  36.  
  37. PROCEDURE Setexc(vec:CARDINAL;adr:ADDRESS):ADDRESS;
  38.  
  39.  
  40.  
  41. PROCEDURE Dsetdrv(drv:CARDINAL):UNSIGNEDLONG;
  42.  
  43. PROCEDURE Dgetdrv():CARDINAL;
  44.  
  45. PROCEDURE Fsetdta(dta:ADDRESS);
  46.  
  47. PROCEDURE Super(dat:UNSIGNEDLONG):SIGNEDLONG;
  48.  
  49. PROCEDURE Tgetdate():WORDSET;
  50.  
  51. PROCEDURE Tsetdate(date:ANYWORD):BOOLEAN;
  52.  
  53. PROCEDURE Tgettime():WORDSET;
  54.  
  55. PROCEDURE Tsettime(time:ANYWORD):BOOLEAN;
  56.  
  57. PROCEDURE Fgetdta():ADDRESS;
  58.  
  59. PROCEDURE Sversion():CARDINAL;
  60.  
  61. PROCEDURE Dcreate(dir:ADDRESS;VAR res:INTEGER):BOOLEAN;
  62.  
  63. PROCEDURE Ddelete(dir:ADDRESS;VAR res:INTEGER):BOOLEAN;
  64.  
  65. PROCEDURE Dsetpath(dir:ADDRESS;VAR res:INTEGER):BOOLEAN;
  66.  
  67. PROCEDURE Fcreate(file:ADDRESS;attr:ANYWORD;VAR hndl:INTEGER):BOOLEAN;
  68.  
  69. PROCEDURE Fopen(file:ADDRESS;mode:ANYWORD;VAR hndl:INTEGER):BOOLEAN;
  70.  
  71. PROCEDURE Fclose(hndl:INTEGER;VAR res:INTEGER):BOOLEAN;
  72.  
  73. PROCEDURE Fread(hndl:INTEGER;len:UNSIGNEDLONG;buf:ADDRESS;VAR cnt:SIGNEDLONG):BOOLEAN;
  74.  
  75. PROCEDURE Fwrite(hndl:INTEGER;len:UNSIGNEDLONG;buf:ADDRESS;VAR cnt:SIGNEDLONG):BOOLEAN;
  76.  
  77. PROCEDURE Fdelete(file:ADDRESS;VAR res:INTEGER):BOOLEAN;
  78.  
  79. PROCEDURE Fseek(off:SIGNEDLONG;hndl:INTEGER;mode:CARDINAL;VAR pos:SIGNEDLONG):BOOLEAN;
  80.  
  81. PROCEDURE Fattrib(file:ADDRESS;flag:CARDINAL;attr:ANYWORD;VAR old:WORDSET):BOOLEAN;
  82.  
  83. PROCEDURE Mxalloc(size:SIGNEDLONG;mode:ANYWORD;VAR adr:ADDRESS):BOOLEAN;
  84.  
  85. PROCEDURE Fdup(std:INTEGER;VAR hndl:INTEGER):BOOLEAN;
  86.  
  87. PROCEDURE Fforce(std:INTEGER;hndl:INTEGER;VAR res:INTEGER):BOOLEAN;
  88.  
  89. PROCEDURE Dgetpath(buf:ADDRESS;drv:CARDINAL;VAR res:INTEGER):BOOLEAN;
  90.  
  91. PROCEDURE Malloc(size:SIGNEDLONG;VAR adr:ADDRESS):BOOLEAN;
  92.  
  93. PROCEDURE Mfree(adr:ADDRESS;VAR res:INTEGER):BOOLEAN;
  94.  
  95. PROCEDURE Mshrink(adr:ADDRESS;size:SIGNEDLONG;VAR res:INTEGER):BOOLEAN;
  96.  
  97. PROCEDURE Pexec(mode:CARDINAL;prog:ADDRESS;tail:ADDRESS;env:ADDRESS;VAR res:SIGNEDLONG):BOOLEAN;
  98.  
  99. PROCEDURE Pterm(ret:INTEGER);
  100.  
  101. PROCEDURE Fsfirst(file:ADDRESS;attr:ANYWORD;VAR res:INTEGER):BOOLEAN;
  102.  
  103. PROCEDURE Fsnext(VAR res:INTEGER):BOOLEAN;
  104.  
  105. PROCEDURE Frename(old:ADDRESS;new:ADDRESS;VAR res:INTEGER):BOOLEAN;
  106.  
  107. PROCEDURE Fdatime(datime:ADDRESS;hndl:INTEGER;flag:CARDINAL);
  108.  
  109. PROCEDURE Flock(hndl:INTEGER;mode:CARDINAL;from:UNSIGNEDLONG;len:UNSIGNEDLONG;VAR res:INTEGER):BOOLEAN;
  110.  
  111. /*==========================================================================*/
  112. /*                      MiNT-Calls                                          */
  113. /*==========================================================================*/
  114.  
  115. PROCEDURE Syield;
  116.  
  117. PROCEDURE Fpipe(buf:ADDRESS;VAR res:INTEGER):BOOLEAN;
  118.  
  119. PROCEDURE Fcntl(hndl:INTEGER;arg:ANYLONG;cmd:CARDINAL;VAR res:SIGNEDLONG):BOOLEAN;
  120.  
  121. PROCEDURE Pwait(VAR res:SIGNEDLONG):BOOLEAN;
  122.  
  123. PROCEDURE Pgetpid():INTEGER;
  124.  
  125. PROCEDURE Pgetppid():INTEGER;
  126.  
  127. PROCEDURE Pgetpgrp():INTEGER;
  128.  
  129. PROCEDURE Psetpgrp(pid:INTEGER;grp:INTEGER;VAR res:INTEGER):BOOLEAN;
  130.  
  131. PROCEDURE Pgetuid():UNSIGNEDWORD;
  132.  
  133. PROCEDURE Psetuid(uid:UNSIGNEDWORD;VAR res:INTEGER):BOOLEAN;
  134.  
  135. PROCEDURE Pkill(pid:INTEGER;sig:CARDINAL;VAR res:INTEGER):BOOLEAN;
  136.  
  137. PROCEDURE Psignal(sig:CARDINAL;handler:ADDRESS;VAR old:ADDRESS):BOOLEAN;
  138.  
  139. PROCEDURE Pgetgid():UNSIGNEDWORD;
  140.  
  141. PROCEDURE Psetgid(gid:UNSIGNEDWORD;VAR res:INTEGER):BOOLEAN;
  142.  
  143. PROCEDURE Psigblock(mask:UNSIGNEDLONG):UNSIGNEDLONG;
  144.  
  145. PROCEDURE Psigsetmask(mask:UNSIGNEDLONG):UNSIGNEDLONG;
  146.  
  147. PROCEDURE Pusrval(arg:SIGNEDLONG):SIGNEDLONG;
  148.  
  149. PROCEDURE Pdomain(dom:INTEGER):INTEGER;
  150.  
  151. PROCEDURE Psigreturn;
  152.  
  153. PROCEDURE Pfork():INTEGER;
  154.  
  155. PROCEDURE Pwait3(flag:ANYWORD;rusage:ADDRESS;VAR res:SIGNEDLONG):BOOLEAN;
  156.  
  157. PROCEDURE Fselect(timeout:CARDINAL;rfds:ADDRESS;wfds:ADDRESS;xfds:ADDRESS;VAR res:INTEGER):BOOLEAN;
  158.  
  159. PROCEDURE Prusage(rscadr:ADDRESS);
  160.  
  161. PROCEDURE Talarm(secs:SIGNEDLONG):UNSIGNEDLONG;
  162.  
  163. PROCEDURE Pause;
  164.  
  165. PROCEDURE Sysconf(which:INTEGER;VAR val:SIGNEDLONG):BOOLEAN;
  166.  
  167. PROCEDURE Psigpending():UNSIGNEDLONG;
  168.  
  169. PROCEDURE Dpathconf(path:ADDRESS;which:INTEGER;VAR val:SIGNEDLONG):BOOLEAN;
  170.  
  171. PROCEDURE Dopendir(path:ADDRESS;flag:CARDINAL;VAR dir:UNSIGNEDLONG):BOOLEAN;
  172.  
  173. PROCEDURE Dreaddir(len:CARDINAL;dir:UNSIGNEDLONG;buf:ADDRESS;VAR res:INTEGER):BOOLEAN;
  174.  
  175. PROCEDURE Drewinddir(dir:UNSIGNEDLONG;VAR res:INTEGER):BOOLEAN;
  176.  
  177. PROCEDURE Dclosedir(dir:UNSIGNEDLONG;VAR res:INTEGER):BOOLEAN;
  178.  
  179. PROCEDURE Fxattr(flag:CARDINAL;file:ADDRESS;xattr:ADDRESS;VAR res:INTEGER):BOOLEAN;
  180.  
  181. PROCEDURE Flink(old:ADDRESS;new:ADDRESS;VAR res:INTEGER):BOOLEAN;
  182.  
  183. PROCEDURE Fsymlink(old:ADDRESS;new:ADDRESS;VAR res:INTEGER):BOOLEAN;
  184.  
  185. PROCEDURE Freadlink(bufsiz:CARDINAL;buf:ADDRESS;file:ADDRESS;VAR res:INTEGER):BOOLEAN;
  186.  
  187. PROCEDURE Fchown(file:ADDRESS;uid:UNSIGNEDWORD;gid:UNSIGNEDWORD;VAR res:INTEGER):BOOLEAN;
  188.  
  189. PROCEDURE Fchmod(file:ADDRESS;mode:ANYWORD;VAR res:INTEGER):BOOLEAN;
  190.  
  191. PROCEDURE Pumask(mode:ANYWORD):WORDSET;
  192.  
  193. PROCEDURE Psigpause(sigmask:UNSIGNEDLONG);
  194.  
  195. PROCEDURE Psigaction(sig:CARDINAL;act:ADDRESS;oact:ADDRESS;VAR res:INTEGER):BOOLEAN;
  196.  
  197. PROCEDURE Pgeteuid():UNSIGNEDWORD;
  198.  
  199. PROCEDURE Pgetegid():UNSIGNEDWORD;
  200.  
  201. PROCEDURE Pwaitpid(pid:INTEGER;flag:ANYWORD;rusage:ADDRESS;VAR res:SIGNEDLONG):BOOLEAN;
  202.  
  203. PROCEDURE Dgetcwd(path:ADDRESS;drv:CARDINAL;size:CARDINAL;VAR res:INTEGER):BOOLEAN;
  204.  
  205. END OSCALLS.
  206.